home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / A-Monthly Disks / (c)abc.d64 / reu slideshow (.txt) < prev    next >
Commodore BASIC  |  2007-02-04  |  3KB  |  115 lines
  1. 0 REM *******************************
  2. 1 REM *** 1750/1764 REU SLIDESHOW ***
  3. 2 REM *** DESIGNED AND WRITTEN BY ***
  4. 3 REM *** - JAMES HASTINGS-TREW - ***
  5. 4 REM ***      JULY 19,1988       ***
  6. 5 REM ***  AT THE SUGGESTION OF   ***
  7. 6 REM ***    JUDITH M. BALDWIN    ***
  8. 7 REM ***    OF THE E.C.C.U.G.    ***
  9. 8 REM *******************************
  10. 9 :
  11. 10 IF A=1THEN62
  12. 11 IF X=0THENX=1:LOAD"FASTBOOT",8,1
  13. 12 IFX=1THENX=2:SYS51200:GOSUB13:GOTO43
  14. 13 FORA=49154TO49320:REM INSTALL ML
  15. 14 READI:POKEA,I
  16. 15 NEXT:RETURN
  17. 16 DATA 173,17,208,41,239,9,32,141
  18. 17 DATA 17,208,173,22,208,41,223,9
  19. 18 DATA 16,141,22,208,173,24,208,41
  20. 19 DATA 240,9,8,141,24,208,76,43
  21. 20 DATA 192,173,17,208,41,239,141,17
  22. 21 DATA 208,162,127,160,64,134,252,132
  23. 22 DATA 251,162,4,160,0,134,254,132
  24. 23 DATA 253,162,131,160,39,32,127,192
  25. 24 DATA 162,131,160,40,134,252,132,251
  26. 25 DATA 162,216,160,0,134,254,132,253
  27. 26 DATA 162,135,160,15,32,127,192,173
  28. 27 DATA 16,135,141,33,208,162,96,160
  29. 28 DATA 0,134,252,132,251,162,32,160
  30. 29 DATA 0,134,254,132,253,162,127,160
  31. 30 DATA 63,32,127,192,173,17,208,9
  32. 31 DATA 16,141,17,208,96,142,1,192
  33. 32 DATA 140,0,192,160,0,177,251,145
  34. 33 DATA 253,165,252,205,1,192,208,8
  35. 34 DATA 165,251,205,0,192,208,1,96
  36. 35 DATA 230,251,208,2,230,252,230,253
  37. 36 DATA 208,227,230,254,76,135,192
  38. 37 SYS49154  :REM SHOW PIC
  39. 38 RETURN
  40. 39 POKE53265,PEEK(53265)AND223 :REM PUT SCREEN BACK TO NORMAL
  41. 40 POKE53272,(PEEK(53272)AND240)OR4
  42. 41 POKE53270,PEEK(53270)AND239
  43. 42 POKE53281,FC:POKE646,CC:RETURN
  44. 43 POKE53280,0:POKE53281,0
  45. 44 PRINT"[147][158]     1750/1764 [203]OALAPAINT [211]LIDE [211]HOW    "
  46. 45 PRINT"[159] [196]O YOU HAVE A [210]AM [197]XPANSION [213]NIT        INSTALLED? <Y/N>"
  47. 46 RU=0:POKE198,0:WAIT198,1:GETA$:IFA$="Y"THENRU=1:GOSUB110:GOTO48
  48. 47 IFA$<>"N"THEN46
  49. 48 INPUT" [197]NTER TIME (SEC.) FOR EACH PICTURE";TM:IFTM<0ORTM>59THEN48
  50. 49 TM=TM*60
  51. 50 PRINT:PRINT" [201]NSERT DATA DISK IN DRIVE <RETURN>"
  52. 51 GETA$:IFA$=""THEN51
  53. 52 DIMF$(16):POKE198,0
  54. 53 GOSUB 69
  55. 54 IFNN=0THENPRINT"[147]SORRY, NO KOALA PICTURES ON THIS DISK":END
  56. 55 PRINT"PRESS ANY KEY DURING THE SLIDE SHOW TO  STOP"
  57. 56 GS=0
  58. 57 IFGS=NN THEN RO=1:GOTO56
  59. 58 G$=LEFT$(F$(GS),15)
  60. 59 FC=PEEK(53281):CC=PEEK(646)
  61. 60 IF RU=1 AND RO=1 THEN GOSUB 98:GOTO 63
  62. 61 A=1:LOADG$,8,1
  63. 62 IF RU=1 AND RO=0 THEN GOSUB 86
  64. 63 GOSUB37:TI$="000000"
  65. 64 IFTI<TMTHEN64
  66. 65 GS=GS+1:GETA$:IFA$=""THEN57
  67. 66 GOSUB39
  68. 67 PRINT"[147][196]ONE!":POKE53281,0
  69. 68 END
  70. 69 REM DIRECTORY READ
  71. 70 PRINT"[147][158]LIST OF ALL KOALA PICTURES ON THIS DISK"
  72. 71 OPEN15,8,15:OPEN5,8,5,"#":T=18:S=1:NN=0:Z$=CHR$(0)
  73. 72 PRINT#15,"U1:"5;0;T;S:PRINT#15,"B-P:"5;0:GET#5,T$,S$
  74. 73 T=ASC(T$+Z$):S=ASC(S$+Z$):BP=5:FL=1
  75. 74 PRINT#15,"B-P:"5;BP:GET#5,A$:IFA$="[129]"THENGOSUB79
  76. 75 BP=BP+32:FL=FL+1:IFFL<>9THEN74
  77. 76 IFT=18THEN72
  78. 77 CLOSE5:CLOSE15:T$="":S$="":A$="":N=FRE(0)
  79. 78 RETURN
  80. 79 REM LISTER
  81. 80 PRINT"[193][146]";
  82. 81 FORX=1TO15
  83. 82 F$(NN)=F$(NN)+A$:GET#5,A$:PRINTA$;
  84. 83 NEXT
  85. 84 N=FRE(0):NN=NN+1:PRINT
  86. 85 RETURN
  87. 86 REM LOAD PIC INTO REU
  88. 87 AD=GS*10010:AB=INT(AD/65536):AD=AD-(65536*AB):AH=INT(AD/256)
  89. 88 AL=AD-(AH*256)
  90. 89 POKE57096,39:REM PIC LEN HI-BYTE
  91. 90 POKE57095,17:REM PIC LEN LO-BYTE
  92. 91 POKE57094,AB:REM REU BANK
  93. 92 POKE57093,AH:REM REU ADDR HI-BYTE
  94. 93 POKE57092,AL:REM REU ADDR LO-BYTE
  95. 94 POKE57091,96:REM PIC ADDR HI-BYTE
  96. 95 POKE57090,00:REM PIC ADDR LO-BYTE
  97. 96 POKE57089,144:REM DO IT!
  98. 97 RETURN
  99. 98 REM LOAD PIC FROM REU
  100. 99 AD=GS*10010:AB=INT(AD/65536):AD=AD-(65536*AB):AH=INT(AD/256)
  101. 100 AL=AD-(AH*256)
  102. 101 POKE57096,39:REM PIC LEN HI-BYTE
  103. 102 POKE57095,17:REM PIC LEN LO-BYTE
  104. 103 POKE57094,AB:REM REU BANK
  105. 104 POKE57093,AH:REM REU ADDR HI-BYTE
  106. 105 POKE57092,AL:REM REU ADDR LO-BYTE
  107. 106 POKE57091,96:REM PIC ADDR HI-BYTE
  108. 107 POKE57090,00:REM PIC ADDR LO-BYTE
  109. 108 POKE57089,145:REM DO IT!
  110. 109 RETURN
  111. 110 REM INITIALIZE REU
  112. 111 POKE 57098,0:REM ADDR CONTROL
  113. 112 POKE 57097,128:REM INTERRUPTS
  114. 113 RETURN
  115.